home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 3 / CD ACTUAL 3.iso / linux / incoming / jstools-.6v3 / jstools- / jstools-tk3.6v3.0 / lib / samples / jpeoplerc.tcl < prev    next >
Encoding:
Text File  |  1995-03-14  |  1.0 KB  |  35 lines
  1. catch {
  2. .people.id.e configure -font \
  3.     -*-lucidatypewriter-medium-r-normal-sans-10-100-*
  4. .people.alias.e configure -font \
  5.     -*-lucidatypewriter-medium-r-normal-sans-10-100-*
  6. .people.email.e configure -font \
  7.     -*-lucidatypewriter-medium-r-normal-sans-10-100-*
  8. .people.first.e configure -font \
  9.     -*-lucida-bold-r-normal-sans-12-120-*
  10. .people.last.e configure -font \
  11.     -*-lucida-bold-r-normal-sans-12-120-*
  12. .people.phone.e configure -font \
  13.     -*-lucida-medium-r-normal-sans-10-100-*
  14. .people.address.e configure -font \
  15.     -*-lucida-medium-r-normal-sans-10-100-*
  16. .people.birthdate.e configure -font \
  17.     -*-lucida-medium-r-normal-sans-10-100-*
  18. .people.comment.e configure -font \
  19.     -*-lucida-medium-i-normal-sans-10-100-*
  20.  
  21. ### .people.finger.t configure -font \
  22. ###     -*-lucidatypewriter-medium-r-normal-sans-8-*-*-*-*-*-*-*
  23. }
  24.  
  25. ######################################################################
  26. # window icon:
  27.  
  28. update idletasks
  29.  
  30. global env
  31. set iconbitmap "$env(HOME)/xbm/xperson.32.xbm"
  32. if [file isfile $iconbitmap] {
  33.   wm iconbitmap .people "@$iconbitmap"
  34. }
  35.